home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
ACE
/
Install
< prev
next >
Wrap
Text File
|
1995-11-24
|
2KB
|
67 lines
(if (= @language "deutsch")
(
(SET Intro "Wilkommen zum Installer-Script für ACE-BASIC.\n\n WARNUNG: ACE-Basic braucht ca 4MB freien Plattenplatz.")
(SET Where "Wohin soll ACE-BASIC hinkopiert werden ? Es wird ein Verzeichnis namens ACE angelegt.")
(SET Addit
(CAT "Nun Werden folgende Zeilen in ihre User-Startup angehängt.\n\n"
"assign ACElib: ACE:lib \n"
"assign ACEbmaps: ACE:bmaps \n"
"assign ACEinclude: ACE:include \n"
)
)
)
)
(if (= @language "english")
(
(SET Intro "Welcome to the installer-script for ACE-BASIC.\n\n WARNING: ACE-BASIC needs about 4MB on your hard-disk.")
(SET Where "Where do you want to place ACE-BASIC ? A drawer called ACE will be created.")
(SET Addit "Now some lines will be added to your s:user-startup\n")
)
)
(MESSAGE Intro)
(SET BasDir
(ASKDIR
(PROMPT Where)
(HELP "")
(DEFAULT "sys:")
)
)
(SET BinDir (TACKON BasDir "ACE"))
(RUN (CAT "makedir \""BinDir"\""))
(COPYFILES
(SOURCE ":Dev/ACE/")
(DEST BinDir)
(ALL)
(INFOS)
)
(STARTUP @app-name
(COMMAND
(CAT "assign ace: \""BinDir"\" \n"
"assign ACElib: ACE:lib ; bas finds scanned libraries here.\n"
"assign ACEbmaps: ACE:bmaps ; ace looks here for .bmap files. \n"
"assign ACEinclude: ACE:include ; app uses this for include files.\n"
"assign c: \""(TACKON BinDir "bin")"\" Add \n"
)
)
(PROMPT Addit)
(HELP "")
)
(RUN
(CAT "assign ace: \""BinDir"\" \n"
"assign ACElib: ACE:lib ; bas finds scanned libraries here.\n"
"assign ACEbmaps: ACE:bmaps ; ace looks here for .bmap files. \n"
"assign ACEinclude: ACE:include ; app uses this for include files.\n"
"assign c: \""(TACKON BinDir "bin")"\" Add \n"
)
)